home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / checksummer vc20 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  53 lines
  1. 0 REM****************
  2. 1 REM*              *
  3. 2 REM* CHECKSUMMER  *
  4. 3 REM* VERSION VC20 *
  5. 4 REM*              *
  6. 5 REM*  COPYRIGHT   *
  7. 6 REM* OKTOBER 1984 *
  8. 7 REM*              *
  9. 8 REM*F. LONCZEWSKI *
  10. 9 REM****************
  11. 10 PRINT"[147]  CHECKSUMMER  VC-20[146]"
  12. 11 PRINT" WRITTEN OCTOBER 1984    BY F. LONCZEWSKI"
  13. 12 PRINT"EINEN MOMENT, BITTE..."
  14. 13 FORI=827TO993:GOSUB21:POKEI,A
  15. 14 PS=PS+A+1:NEXTI
  16. 15 IFPS<>20612THENPRINT"PRUEFSUMMENFEHLER !":END
  17. 16 SYS955:PRINT"CHECKSUMMER AKTIVIERT."
  18. 17 PRINT"AN :SYS955"
  19. 18 PRINT"AUS:SYS58459, BEI CAS-    SETTE ZUSAETZLICH     RUN/STOP & RESTORE"
  20. 19 PRINT"BEI AKTIVIERTEM CHECK-SUMMER KEIN";
  21. 20 PRINT" CASSETTEN-BETRIEB (LOAD, SAVE)  ERLAUBT!":NEW
  22. 21 READA$:IFLEN(A$)<>2THENPRINT"TIPPFEHLER IN ZEILE"PEEK(63)+PEEK(64)*256:END
  23. 22 A1=ASC(A$):A2=ASC(RIGHT$(A$,1))
  24. 23 IFA1<48ORA1>57THENIFA1<65ORA1>70THEN30
  25. 24 IFA2<48ORA2>57THENIFA2<65ORA2>70THEN30
  26. 25 IFA1>64THENA1=A1-55:GOTO27
  27. 26 IFA1<58THENA1=A1-48
  28. 27 IFA2>64THENA2=A2-55:GOTO29
  29. 28 IFA2<58THENA2=A2-48
  30. 29 A=A1*16+A2:RETURN
  31. 30 PRINT"UNGUELTIGER HEXCODE IN ZEILE"PEEK(63)+PEEK(64)*256:END
  32. 31 DATA 20,5F,03,86,7A,84,7B,20
  33. 32 DATA 73,00,AA,F0,F3,A2,FF,86
  34. 33 DATA 3A,90,0A,A2,00,86,FF,20
  35. 34 DATA 79,C5,4C,E1,C7,A2,01,86
  36. 35 DATA FF,4C,9C,C4,A6,FF,E0,01
  37. 36 DATA F0,03,4C,60,C5,A0,02,A9
  38. 37 DATA 00,85,FE,B1,5F,F0,0F,C9
  39. 38 DATA 20,D0,03,C8,D0,F5,18,65
  40. 39 DATA FE,85,FE,4C,76,03,C0,04
  41. 40 DATA 30,F1,C6,D6,A5,D6,48,A2
  42. 41 DATA 03,A9,20,9D,01,04,BD,B7
  43. 42 DATA 03,20,D2,FF,CA,10,F2,A6
  44. 43 DATA FE,A9,00,20,CD,DD,A9,3E
  45. 44 DATA 20,D2,FF,68,85,D6,20,87
  46. 45 DATA E5,A9,8D,20,D2,FF,A2,00
  47. 46 DATA 86,FF,F0,AE,09,3C,12,13
  48. 47 DATA A9,3B,8D,02,03,A9,03,8D
  49. 48 DATA 03,03,A5,BA,C9,01,D0,10
  50. 49 DATA A9,74,8D,30,03,8D,32,03
  51. 50 DATA A9,C4,8D,31,03,8D,33,03
  52. 51 DATA AD,88,02,8D,90,03,60
  53.